Option Explicit
Declare Function RTGetPCKey Lib "RTREGW.DLL" (ByVal PCKey$) As Integer
Declare Sub RTSetPCLock Lib "RTREGW.DLL" (ByVal Value As Integer)
Declare Function RTRegister Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal UserKey$, ByVal RegKey$) As Integer
Declare Function RTRegisterByFile Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal FileName$) As Integer
Declare Function RTGetUserKey Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Value$) As Integer
Declare Function RTSetUserInfo Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Info$, ByVal Value$) As Integer
Declare Function RTGetUserInfo Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Info$, ByVal Value$) As Integer
Declare Function RTDelUserInfo Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Info$) As Integer
Declare Function RTIsReg Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTDelReg Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTCheckReg Lib "RTREGW.DLL" (ByVal ProductKey$) As Long
Declare Function RTIsCountLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTSetCountLock Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Value As Long) As Integer
Declare Function RtDelCountLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTCheckCountLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Long
Declare Function RTIsDateLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTSetDateLock Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Value As Long) As Integer
Declare Function RtDelDateLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTCheckDateLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Long
Declare Function RTGetVersion Lib "RTREGW.DLL" () As Long
Declare Sub RTSetVersion Lib "RTREGW.DLL" (ByVal Value As Long)
Declare Sub RTSetEncodeKey Lib "RTREGW.DLL" (ByVal Value$)
Declare Function RTGetSaveKind Lib "RTREGW.DLL" () As Integer
Declare Function RTSetSaveKind Lib "RTREGW.DLL" (ByVal Value As Integer) As Integer
Declare Sub RTGetSaveFile Lib "RTREGW.DLL" (ByVal File$)
Declare Function RTSetSaveFile Lib "RTREGW.DLL" (ByVal File$) As Integer
Declare Function RTGetSafeKind Lib "RTREGW.DLL" () As Integer
Declare Function RTSetSafeKind Lib "RTREGW.DLL" (ByVal Value As Integer) As Integer
Declare Sub RTGetSafeFile Lib "RTREGW.DLL" (ByVal File$)
Declare Function RTSetSafeFile Lib "RTREGW.DLL" (ByVal File$) As Integer
Global Const SAVE_NONE = 0
Global Const SAVE_DEF = 1
Global Const SAVE_INI = 2
Global Const SAVE_DLL = 3

